home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / lrge174.zip / RSB1LRGE.MRG < prev    next >
Text File  |  1992-10-20  |  1KB  |  35 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB1.BAS to produce RBBSSUB1.NEW
  3. * RBBSSUB1.BAS:  Date 06-20-1992  Size 55569 bytes
  4. * ------------[ Created 10-20-1992 19:04:20 ]------------
  5. * REPLACING old line(s) by new
  6. 1479 ' $SUBTITLE: 'OpenRSeq  - open sequential file randomly'
  7. ' $PAGE
  8. '
  9. '  NAME    -- OpenRSeq
  10. '
  11. '  INPUTS  -- PARAMETER             MEANING
  12. '             FilName$      NAME OF SEQUENTIAL FILE TO OPEN AS #2
  13. '             RecLen        Length of a record
  14. '
  15. * ------[ first line different ]------
  16. '  OUTPUTS -- NumRecs&     NUMBER OF RECORDS IN THE FILE based on RecLen  ' LRGE174/YB102001
  17. '             LenLastRec   NUMBER OF BYTES IN THE LAST RECORD
  18. '                          MAY BE LESS THAN OR EQUAL TO RecLen).
  19. '
  20. '  PURPOSE -- Open a sequential file as file #2 and read it randomly
  21. '
  22.      SUB OpenRSeq (FilName$,NumRecs&,LenLastRec,RecLen) STATIC       ' LRGE174/YB102001
  23.      ON ERROR GOTO 65000
  24.      CALL OpenRand2 (FilName$,RecLen)
  25.      IF ZErrCode > 0 THEN _
  26.         EXIT SUB
  27.      FIELD #2, RecLen AS ZDnldRecord$
  28.      WasI# = LOF(2)
  29.      NumRecs& = FIX(WasI#/RecLen)                                    ' LRGE174/YB102001
  30.      LenLastRec = WasI# - CDBL(NumRecs&) * RecLen                    ' LRGE174/YB102001
  31.      IF LenLastRec > 0 THEN _
  32.         NumRecs& = NumRecs& + 1 _                                    ' LRGE174/YB102001
  33.      ELSE LenLastRec = RecLen
  34.      END SUB
  35.